home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Information / MailingLists / MLSearch.awebrx < prev   
Text File  |  2000-09-22  |  2KB  |  58 lines
  1. /*
  2.     $VER: 1.0 MLSearch.awebrx (22-9-2000)
  3.     By Neil Bothwick
  4.  
  5.     Searches mailing lists on AACD.
  6. */
  7.  
  8. options results
  9. CDName = 'AACD14'
  10. AWebPort = address()
  11. DBdir = CDName':AACD/Information/MailingLists/'
  12.  
  13. parse arg ListArg ' ' SearchArg
  14. /* call addlib('rexxsupport.library',0,-30,0) */
  15.  
  16. SearchStr = ''
  17. interpret ListArg
  18. interpret SearchArg
  19. if SearchStr = '' then exit
  20. if List > '' then List = List'/'
  21.  
  22. address command 'FlashFind >T:MLSearch.results' DBdir||List'messages/#? "'SearchStr'" QuietHit NoHighlight'
  23.  
  24. call open(out,'T:MLSearch.html','W')
  25. call writeln(out,'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">')
  26. call writeln(out,'<html><head><title>Search results</title></head><body bgcolor=white>')
  27. call writeln(out,'<h3 align="center">Result of searching for "<font color="red">'SearchStr'</font>"</h3>')
  28.  
  29. call writeln(out,'<pre>')
  30. call close(out)
  31.  
  32. address command 'type T:MLSearch.results >>T:MLSearch.html'
  33. address command 'echo "</body></html>" >>T:MLSearch.html'
  34.  
  35. /*
  36. if word(statef('T:IndexSearch.results'),2) = 0 then call writeln(out,'<h4 align="center">No matches found</h4>')
  37. else do
  38.     call writeln(out,'<table align="center" border="0">')
  39.     call writeln(out,'<tr><th width="80%">Title</th><th width="20%">Issue</th><tr>')
  40.     call open(in,'T:IndexSearch.results','R')
  41.     do until eof(in)
  42.         line = readln(in)
  43.         if line = '' then iterate
  44.         parse var line File '|' IssueDate '|' Title '|' .
  45.         parse var File IssueNum '-' .
  46.         call writeln(out,'<tr align="left" valign="top"><td><a href="file://localhost/'DBdir||File'">'Title'</a></td>')
  47.         call writeln(out,'<td align="center"><a href="file://localhost/'DBdir||'Issue'IssueNum'.html">'IssueDate'</a></td></tr>')
  48.         end
  49.     call close(in)
  50.     call writeln(out,'</table>')
  51.     end
  52.  
  53. call writeln(out,'</body></html>')
  54. call close(out)
  55. */
  56.  
  57. 'Open "file://localhost/T:MLSearch.html" reload'
  58.